home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / m1_____b.p2s < prev    next >
Encoding:
Text File  |  1994-04-27  |  3.6 KB  |  143 lines
  1. ######################################################################
  2. #                                                                    #
  3. #                                                                    #
  4. #                                                                    #
  5. # DESCRIPTION: Open 3 MIDI instances, load, acquire, close.          #
  6. #                                                                    #
  7. #                                                                    #
  8. #                                                                    #
  9. ######################################################################
  10. open sequencer00 alias midi1 shareable wait
  11. load midi1 ?AP2PATH?type1.mid wait
  12. cue midi1 output wait
  13. play midi1 notify
  14. +MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY
  15. @PAUSE 1000
  16. #
  17. open sequencer00 alias midi2 shareable wait
  18. load midi2 ?AP2PATH?type1.mid wait
  19. cue midi2 output wait
  20. play midi2 notify
  21. +MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY
  22. @PAUSE 1000
  23. #
  24. open sequencer00 alias midi3 shareable wait
  25. load midi3 ?AP2PATH?type1.mid wait
  26. cue midi3 output wait
  27. play midi3 notify
  28. +MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY
  29. @PAUSE 1000
  30. #
  31. #
  32. #
  33. acquire midi1 wait
  34. +MM_MCIPASSDEVICE MCI_LOSING_USE
  35. +MM_MCIPASSDEVICE MCI_GAINING_USE
  36. @PAUSE 10000
  37. pause midi1 wait
  38. #
  39. acquire midi2 wait
  40. +MM_MCIPASSDEVICE MCI_LOSING_USE
  41. +MM_MCIPASSDEVICE MCI_GAINING_USE
  42. @PAUSE 10000
  43. pause midi2 notify
  44. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PAUSE
  45. @PAUSE 2000
  46. #
  47. acquire midi3 wait
  48. +MM_MCIPASSDEVICE MCI_LOSING_USE
  49. +MM_MCIPASSDEVICE MCI_GAINING_USE
  50. @PAUSE 10000
  51. pause midi3 wait
  52. #
  53. #
  54. #
  55. acquire midi1 wait
  56. +MM_MCIPASSDEVICE MCI_LOSING_USE
  57. +MM_MCIPASSDEVICE MCI_GAINING_USE
  58. resume midi1 notify
  59. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME
  60. @PAUSE 5000
  61. #
  62. acquire midi2 wait
  63. +MM_MCIPASSDEVICE MCI_LOSING_USE
  64. +MM_MCIPASSDEVICE MCI_GAINING_USE
  65. resume midi2 notify
  66. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME
  67. @PAUSE 5000
  68. #
  69. acquire midi3 wait
  70. +MM_MCIPASSDEVICE MCI_LOSING_USE
  71. +MM_MCIPASSDEVICE MCI_GAINING_USE
  72. resume midi3 notify
  73. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME
  74. @PAUSE 5000
  75. #
  76. #
  77. #
  78. acquire midi1 wait
  79. +MM_MCIPASSDEVICE MCI_LOSING_USE
  80. +MM_MCIPASSDEVICE MCI_GAINING_USE
  81. resume midi1 wait
  82. @PAUSE 10000
  83. stop midi1 notify
  84. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_STOP
  85. @PAUSE 2000
  86. #
  87. acquire midi2 wait
  88. +MM_MCIPASSDEVICE MCI_LOSING_USE
  89. +MM_MCIPASSDEVICE MCI_GAINING_USE
  90. resume midi2 wait
  91. @PAUSE 10000
  92. stop midi2 notify
  93. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_STOP
  94. @PAUSE 2000
  95. #
  96. acquire midi3 wait
  97. +MM_MCIPASSDEVICE MCI_LOSING_USE
  98. +MM_MCIPASSDEVICE MCI_GAINING_USE
  99. resume midi3 wait
  100. @PAUSE 10000
  101. stop midi3 notify
  102. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_STOP
  103. @PAUSE 2000
  104. #
  105. #
  106. #
  107. acquire midi1 wait
  108. +MM_MCIPASSDEVICE MCI_LOSING_USE
  109. +MM_MCIPASSDEVICE MCI_GAINING_USE
  110. @PAUSE 2000
  111. seek midi1 to start notify
  112. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK
  113. @PAUSE 3000
  114. #
  115. acquire midi2 wait
  116. +MM_MCIPASSDEVICE MCI_LOSING_USE
  117. +MM_MCIPASSDEVICE MCI_GAINING_USE
  118. @PAUSE 2000
  119. seek midi2 to start notify
  120. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK
  121. @PAUSE 2000
  122. #
  123. acquire midi3 wait
  124. +MM_MCIPASSDEVICE MCI_LOSING_USE
  125. +MM_MCIPASSDEVICE MCI_GAINING_USE
  126. @PAUSE 2000
  127. seek midi3 to start notify
  128. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK
  129. @PAUSE 3000
  130. #
  131. #
  132. #
  133. close midi1 notify
  134. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #1
  135. @WAIT_NOTIFY 1 30000
  136. close midi2 notify
  137. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #2
  138. @WAIT_NOTIFY 2 30000
  139. close midi3 notify
  140. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #3
  141. @WAIT_NOTIFY 3 30000
  142. #
  143.